home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 11 / Amoszine 11 (Disk 2 of 2).adf / Ben_Wyatt_Source.lha / Fuzzy_Screen.AMOS / Fuzzy_Screen.amosSourceCode
AMOS Source Code  |  2004-04-12  |  951b  |  37 lines
  1. ' Fuzzy Screen - like when the tv's bust 
  2. ' ~~~~~~~~~~~~ 
  3. ' by Ben Wyatt, bwyatt@paston.co.uk
  4.  
  5. ' Looks like *some* tv's when bust or on the wrong channel 
  6. ' Makes "shadows" in the dots, like when you're almost tuned in
  7.  
  8. Hide On 
  9.  
  10. ' Open a Pal/Ntsc screen 
  11. Screen Open 0,320+64+32,256+64+32+56*Ntsc,4,Lowres
  12. Screen Display 0,128-16,37-16,320+32,256+32+56*Ntsc
  13. Flash Off : Curs Off : Cls 0
  14. Palette $222,$0,$666,$DDD
  15.  
  16. ' Some goofy text, not using Centre ;-)
  17. Paper 0 : Pen 3
  18. Locate 15,10 : Print "Hold on a mo..."
  19. Locate 12,12 : Print "Just drawing the fuzz"
  20.  
  21. ' Fill the screen with dots
  22. For X=0 To Screen Width-1
  23.    For Y=0 To Screen Height-1
  24.       ' Turbo users can rem the next line and unrem the one after :) 
  25.       Plot X,Y,Rnd(3)
  26.       'F Plot X,Y,Rnd(3) 
  27.    Next Y
  28. Next X
  29.  
  30. Repeat 
  31.    ' Change the colours every now and again 
  32.    If Rnd(5)=1 Then Shift Up 0,0,1,1
  33.    ' Go to a random offset
  34.    Screen Offset 0,Rnd(64),Rnd(64)
  35. Until Mouse Key>0
  36.  
  37. Edit